home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / Clinic / WebTestWM.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-10-21  |  1.4 KB  |  52 lines
  1. unit WebTestWM;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp;
  7.  
  8. type
  9.   TWebModule1 = class(TWebModule)
  10.     prodDefault: TPageProducer;
  11.     prodShowDetails: TPageProducer;
  12.     procedure WebModule1actDefaultAction(Sender: TObject;
  13.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  14.     procedure WebModule1actShowDetailsAction(Sender: TObject;
  15.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  16.     procedure prodShowDetailsHTMLTag(Sender: TObject; Tag: TTag;
  17.       const TagString: String; TagParams: TStrings;
  18.       var ReplaceText: String);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   WebModule1: TWebModule1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TWebModule1.WebModule1actDefaultAction(Sender: TObject;
  33.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  34. begin
  35.   Response.Content := prodDefault.Content
  36. end;
  37.  
  38. procedure TWebModule1.WebModule1actShowDetailsAction(Sender: TObject;
  39.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  40. begin
  41.   Response.Content := prodShowDetails.Content
  42. end;
  43.  
  44. procedure TWebModule1.prodShowDetailsHTMLTag(Sender: TObject; Tag: TTag;
  45.   const TagString: String; TagParams: TStrings; var ReplaceText: String);
  46. begin
  47.   if CompareText(TagString, 'YourName') = 0 then
  48.     ReplaceText := Request.ContentFields.Values['YourName'];
  49. end;
  50.  
  51. end.
  52.